home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 August / PCWorld_1999-08_cd.bin / Novinky / adobe / Instal / archive.z / PDF Format.aip / PSPROCSET / 8 < prev    next >
Text File  |  1998-09-17  |  1KB  |  47 lines
  1. %%BeginFile: pdfimg1b.prc
  2. %%Copyright: Copyright 1987-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. PDF /PDFImage get begin
  4. Level2? not StartLoad {
  5. PDFIVars /PDFImages 4 dict put
  6. /InstallImage {
  7. PDFIVars /PDFImages get 3 1 roll put
  8. } bd
  9. /ColorComps? {
  10. dup type /arraytype eq { 0 get } if /PDFImages gv exch get 0 get
  11. } bd
  12. /ColorProc? {
  13. dup type /arraytype eq { 0 get } if /PDFImages gv exch get 1 get
  14. } bd
  15. /ImageFilter { /DataSource load } bd
  16. /ID {
  17. 5 counttomark 2 idiv
  18. dup 3 1 roll add
  19. dict begin
  20. { def } repeat
  21. cleartomark
  22. currentdict
  23. end
  24. PDFIVars begin begin
  25. /ImageMatrix [ Width 0 0 Height neg 0 Height ] def
  26. /ColorSpace here { pop }
  27. { /ColorSpace /DeviceGray def } ifelse
  28. ColorSpace ColorProc? exec
  29. end end
  30. } bd
  31. /DeviceGray [ 1
  32. {
  33. /ImageMask here not { false } if
  34. {
  35. sfc
  36. Width Height
  37. /Decode here { 0 get 1 eq } { false } ifelse
  38. ImageMatrix ImageFilter imagemask
  39. } {
  40. Width Height BitsPerComponent ImageMatrix ImageFilter image
  41. } ifelse
  42. } bind
  43. ] InstallImage
  44. } EndLoad
  45. end
  46. %%EndFile
  47.